home *** CD-ROM | disk | FTP | other *** search
/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE2 / FASTERPC / DRIVE_C / GAMES / #EVEL80.CK1 < prev    next >
Text File  |  1991-01-01  |  6KB  |  68 lines
  1. REM Gigue from J.S.Bach's Partita No.1
  2.  
  3. REM This program was compiled using Borland's Turbo Basic.
  4. REM It also runs unchanged using Microsoft's QuickBasic supplied
  5. REM with DOS 5.0.
  6. REM Run this using Acorn's !PCem to hear some strange notes!
  7.  
  8. REM Display title
  9. PRINT "J.S.Bach : Gigue from Partita number 1"
  10.  
  11. REM Set tempo and choose hemidemisemiquavers as default
  12. PLAY "T150L16"
  13.  
  14. REM Play each bar of the piece
  15. PLAY "O4 F <D B- <B- >D B- O1 B- O3 D B- >F <D B-"
  16. PLAY "O4 G <E- B- A- E- B- G E- B- >G <E- B-"
  17. PLAY "O4 C <E- A G- E- A F E- A >C <E- A"
  18. PLAY "O4 D <F B- <B- >F B- O1 B- O3 F B- >D <F B-"
  19. PLAY "O4 G <B- >D <A B- >D <G B- >D <F B- >D"
  20. PLAY "O3 E B- >C <G B- >C <C B- >C E <B- >C"
  21. PLAY "O4 F <A >C <G A >C <F A >C <E A >C"
  22. PLAY "O3 D A B- F A B- <B- >A B- >D <A B-"
  23. PLAY "O4 E <G B- D- G B- C G B- >E <G B-"
  24. PLAY "O4 F <F A- D- F A- C F A- >F <F A-"
  25. PLAY "O4 G <E G D- E G C E G >G <E G"
  26. PLAY "O4 A- <E F D- E F C E F >A- <E F"
  27. PLAY "O3 B D F <A- >D F <G >D F B D F"
  28. PLAY "O4 C <E G <B- >E G <C >E G B- E G"
  29. PLAY "O3 A- E F <B >E F C E F <C >E F"
  30. PLAY "O1 F >A >C F A >C L4 F L64 P1 L16"
  31. PLAY "O4 A <F >C <E- F >C O2 F >F >C A <F >C"
  32. PLAY "O4 B- <F >D <A- F >D O2 B- >F >D B- <F >D"
  33. PLAY "O4 G <E- >D <B- E- >D <A E- >C G <E- >C"
  34. PLAY "O4 F+ <D >C <G E >C <A F+ >C F+ <A >C"
  35. PLAY "O4 G <G B- E- G B- D G B- >G <G B-"
  36. PLAY "O4 A <F+ A E- F+ A D F+ A >A <F+ A"
  37. PLAY "O4 B- <F+ G E- F+ G D F+ G >B- <F+ G"
  38. PLAY "O5 C O3 F+ A E- F+ A D F+ A O5 C O3 F+ A"
  39. PLAY "O4 B- <G B- >F+ <A >C G <B- >D C+ <G >E"
  40. PLAY "O4 D <A >F+ <G B- >G <F+ >C A <E- >C F+"
  41. PLAY "O3 D B >G <C+ B- >E <D A >F+ O2 D O4 C F+"
  42. PLAY "O1 G O3 B- >G O2 D >B- >G O2 G >B- >G O2 B- >B- >G"
  43. PLAY "O3 D A- >F <F A- >F <B- A- >F D <A- >F"
  44. PLAY "O3 E- G  >E- <B- G >E- G <G >E- <D G >E-"
  45. PLAY "O3 C A >E- <F  A >E- O2 B- >B- >D E <B- >D-"
  46. PLAY "O4 F <A >C <F A >C F <A >C <F A >C"
  47. PLAY "O4 E- <A >C <F A >C E- <A >C <F A >C"
  48. PLAY "O4 D <A- B F A- B >D <A- B F A- B"
  49. PLAY "O4 D- <G B- E G B- >D- <G B- E G B-"
  50. PLAY "O4 C <G- A E- G- A >C <G- A E- G- A"
  51. PLAY "O3 B F A- D F A- B F A- D F A-"
  52. PLAY "O3 B- E G D- E G B- E G D- E G"
  53. PLAY "O3 A E- G- C E- G- A E- G- C E- G-"
  54. PLAY "O3 G D- E <B- >D- E G D- E <B- >D- E"
  55. PLAY "O3 A C E- <G- >C E- <F >C E- A C E-"
  56. PLAY "O3 B- <B- >D- <G- B- >D- <F B- >D- B- <B- >D-"
  57. PLAY "O4 C O2 A >C <G- A >C <F A >C >C O2 A >C"
  58. PLAY "O4 D- O2 A B- G- A B- F A B- O4 D- O2 A B-"
  59. PLAY "O4 E O2 G B- D- G B- C G B- O4 E O2 G B-"
  60. PLAY "O4 F O2 A >C O1 G- >A >C O1 F >A >C >E- O2 A >C"
  61. PLAY "O4 D- O2 A B- E A B- F A B- O1 F >A B-"
  62. PLAY "O1 B- O3 D F B- >D F L 6 B-"
  63.  
  64.     ;P     ;P        ;P    ;P;P;PMZðJÿÿ€°TURBO BASIC/Copyright (c) 1987 by Borland International/All Rights ReservedARSZaleAŷ4@€™[Ü4 €"%>        DD»þ2¨>.…².Ç®è€è±èùè‘è.‰jÿ6èŴX´LÍ!èÐèÿr]èíèqè”è !è±2è{¡\±Óà£Î¸€£Ò‰jètè£.Æ—i.⇨&Â.…Äú.‰^.⇧&Îüû3É3ÿ3í.‰j.ÿ.Ô.◰>®t.£Ø.ÇÚ.ÇÜÃèýLèö.‰²»€ÇÍ!S2äË…È.º-☓‰Ø¡|⇧ÐÑàÂèé~48⇧и hèÕ…ËÉØ☓‰À⇧Âé…È⇧Ð.º3ö‰Ú¿‰À¹@üó¥‰Ø‰◰ÂL^\⇩Ãè~rèCrèÃ.÷ u.÷€t¸ùÃ. .£þ.÷ t
  65. Ûãœ.Ù.þœÃÍ7ãÍ<−.þôJ»ÿÿ.‰²Í!´JÍ!.².;"v.⇧".⇨.⇨.;⇩s¸Ã.¡¨<røøùÃ.Ç„ÍìlÍí*Í<fl„Ã.⇧ŷ.⇧⇧Â;Áv⇧Á.£
  66. +±Óà‰Ú+£.¡j£ÃèÍÿ¸¹€⇨£
  67. £ ⇨.Ç Ã…È.F.J.º.£Ö.£N.£$¹¿&◰=t◰Çâô.L.R.V.Z.^.¡^.\.b.f.j.n.r.v.z.~.ŵ.ŷÃ.¡N2ÿ.⇧….‰‰3öã⇧<⇩\.‰$&◰ÆâîÃ.⇧‰¾ŷèY¾vèS¾rèM¾nèG¾fèA¾bè;…ȉÀ3ö.‰n¿‘¹üó¥3ö.‰r¹ó¥‰Ø⇧¨⇧6ª⇧j‰Âã&◰Æ6âøÃ.⇧Dþ+Ð.‰‰ÚéÚ…ˉÛü3À‰j÷ÿÿu⇧‘⇧>‹Ñéó«⇧“⇧>„Ñéó«⇧ ⇧>¢Ñéó«⇧¤⇧>¦Ñéó«÷ÿÿu⇧†⇧>fiã&⇨◰Ç6âø⇧¬⇧>®ã&⇨◰Ç6âøÄxèáÄ|èÚ÷ÿÿu‰ŵÅ☓èJ‰Û.¡ŵ.£ŷ.ÇÃ3À Àu\3À ⇧ŷ‰Ù‰Á Àt⇧ð÷Ø訿÷⇧ Ŵáÿüó¤.⇧ŷ.¡
  68. +±Óà⇧Ŵáÿ◰Á+Á£